<%
call GuestTotal()  
call MemberTotal() 
call ArticleTotal()
call BoardOlineUserState()
%>

<script language="JavaScript">
function showsubmenu(sid){
      whichEl = eval("submenu" + sid);
      if (whichEl.style.display == "none"){
             eval("submenu" + sid + ".style.display=\"\";");
      }
      else{
             eval("submenu" + sid + ".style.display=\"none\";");
      }
}

function loadThreadFollow(ino){
     var targetImg =eval("followImg" + ino);
     var targetDiv =eval("follow" + ino);
     if (targetDiv.style.display!='block'){
           targetDiv.style.display="block";
           targetImg.src="images/minus.gif";
      }
     else{
          targetDiv.style.display="none";
          targetImg.src="images/plus.gif";
     }
}
</script>
<%
sub GuestTotal()
        dim qqq  
        qqq=Application("tslt_vnumber")
%>
              <br>
              <CENTER>
              <FONT SIZE= 2>
              ӭ<%if session("tslt_username")<>"" then%><font color=#000070><b> <%=session("tslt_username")%></b></font> <%end if%><img border="0" src="images/tushan2.gif" width="100" height="50">ǵڣ<b><%=qqq%></b> λ<br>
<%
end sub

sub MemberTotal()
       dim  strSQL,RS
       strSQL = "SELECT Count(id) as total  FROM ts_userinfo"
       Set RS = conn.Execute(strSQL )
              Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_bottom(0))</SCRIPT>" &RS("total")& "<SCRIPT language=Javascript>passwords(promptInfo_bottom(1))</SCRIPT>"
       RS.close
       set RS = Nothing
end sub

sub ArticleTotal()
      dim SubjectTotalCount
      SubjectTotalCount = 0
      set SubjectRs = server.CreateObject("adodb.recordset")
      SubjectSql = "select id FROM article"
      SubjectRs.open SubjectSql,conn,1,1
             if Not(SubjectRs.Eof and SubjectRs.bof) then
                     SubjectTotalCount = SubjectRs.Recordcount
              End if
       SubjectRs.Close
       set SubjectRs = Nothing
       Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_bottom(2))</SCRIPT>" &SubjectTotalCount& "<SCRIPT language=Javascript>passwords(promptInfo_bottom(3))</SCRIPT>"
       dim ReplyTotalCount
       ReplyTotalCount = 0
       set replyrs = server.CreateObject("adodb.recordset")
       replysql = "select id FROM reply"
       replyrs.open replysql,conn,1,1
              if Not(replyrs.Eof and replyrs.bof) then
	    ReplyTotalCount =replyrs.recordCount
              End if
       replyrs.Close
       set replyrs = Nothing
       Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_bottom(4))</SCRIPT>" &ReplyTotalCount& "<SCRIPT language=Javascript>passwords(promptInfo_bottom(3))</SCRIPT>"
end sub

sub BoardOlineUserState()
        dim rs,onlinecount,onlinename
        set rs = server.CreateObject("adodb.recordset")
        rs.open "select ID from ym_online where onlineboardid='"&request("boardid")&"'",conn,1,1
             if Not rs.Eof then
                    onlinecount = rs.recordCount
             End if
        rs.close
        set rs = Nothing
         dim boardrs,board_UserOC,board_UserOCT
         set boardrs = server.CreateObject("adodb.recordset")
         boardrs.open "select * from board where cstr(boardid)='"&request("boardid")&"'",conn,1,1
                if Not boardrs.Eof then
                         board_UserOC = boardrs("board_UserOC")
                         board_UserOCT = boardrs("board_UserOCT")
                         if board_UserOC < onlinecount then
                                Conn.ExeCute("update board set board_UserOC="& onlinecount &",board_UserOCT='"& Now() &"' where cstr(boardid)='"&request("boardid")&"'")
                                board_UserOC = onlinecount
                         End if
                End if
         boardrs.close
         set boardrs = Nothing
         dim configrs,useronlinecoun,useronlinecounttime
         set configrs = server.CreateObject("adodb.recordset")
         configrs.open "select * from option1 order By id desc",conn,1,1
                if Not configrs.Eof then
                        useronlinecount = configrs("useronlinecount")
                        useronlinecounttime = configrs("useronlinecounttime")
                End if
         configrs.close
         set configrs = Nothing
%>
         <br>
         <FONT SIZE= 2>
         û - ̳ǰ <font color=green><b><%=forumOAC()%></b></font>  | ߼¼ 
         <%=useronlinecounttime%>  <%=useronlinecount%> λûͬʱ
         </FONT>
         <br>
         <img loaded="no" src="images/plus.gif" id="followImg0" style="cursor:hand" onclick="loadThreadFollow(0)">
         <FONT SIZE= 2>
         <b> [</b><%=boardname(request("boardid"))%><b>] </b>ǰ <font color=green><b><%=onlinecount %></b></font>  | ߼¼ 
         <%=board_UserOCT%>  <b><%=board_UserOC%></b> λûͬʱ
         </FONT>
         <table border="0" cellspacing="0" cellpadding="0" width="100%" align="center">
                  <tr>
                        <td id="follow0" style="DISPLAY: none">
                              <iframe src="BottomB_inc.asp?boardid=<%=request("boardid")%>" frameborder="1" scrolling="yes" width="100%" HEIGHT="150"></iframe>
                        </td>
                  </tr>
        </table>
        <br>
        </CENTER>
<%
end sub

function forumOAC() 
      dim rs
      set rs = server.CreateObject("adodb.recordset")
      rs.open "select ID from ym_online",conn,1,1       
             if Not rs.Eof then
                    forumOAC = rs.recordCount
             end if
       rs.close
       set rs=nothing
end function
%>





